append([], X, X).
append( [H | T], Y, [H | Z]) :- append(T, Y, Z).

reparto(_, 0, [[]]).
reparto(L, N, [X|XS]) :- Nm1 is N-1, sublista(X, L), 

